From: Leo Liu <sdl.web@gmail.com>
Date: Fri, 16 Mar 2012 12:26:22 +0000 (+0800)
Subject: * lisp/font-lock.el (lisp-font-lock-keywords-2): Add letrec.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~431
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=96b075dd94d85413d47a139a1e55b5650f234f76;p=emacs.git

* lisp/font-lock.el (lisp-font-lock-keywords-2): Add letrec.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a1e0895396d..a34592943fc 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2012-03-16  Leo Liu  <sdl.web@gmail.com>
+
+	* font-lock.el (lisp-font-lock-keywords-2): Add letrec.
+
 2012-03-16  Aaron S. Hawley  <Aaron.S.Hawley@gmail.com>
 
 	* tar-mode.el (tar-mode): Fix saving by conditionally undoing
diff --git a/lisp/font-lock.el b/lisp/font-lock.el
index 4222791705b..b65828ca1d7 100644
--- a/lisp/font-lock.el
+++ b/lisp/font-lock.el
@@ -2284,7 +2284,7 @@ in which C preprocessor directives are used. e.g. `asm-mode' and
      `(;; Control structures.  Emacs Lisp forms.
        (,(concat
 	  "(" (regexp-opt
-	       '("cond" "if" "while" "while-no-input" "let" "let*"
+	       '("cond" "if" "while" "while-no-input" "let" "let*" "letrec"
 		 "prog" "progn" "progv" "prog1" "prog2" "prog*"
 		 "inline" "lambda" "save-restriction" "save-excursion"
 		 "save-selected-window" "save-window-excursion"